home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAMRADIO / LOGBOOK.ZIP / LOGMISCF.PRG < prev    next >
Text File  |  1986-12-01  |  4KB  |  115 lines
  1. *LOGMISCF BY JOE KASSER G3ZCZ    VER 860728
  2.  
  3. DO WHILE task <> '*'
  4.    ERASE
  5.    @ 2,10 SAY 'MISCELLEANEOUS FUNCTIONS VERSION 1.5'
  6.    @ 5,1  SAY 'CURRENT LOGBOOK '
  7.    ?? logbook
  8.    @  8,1 SAY 'CHANGE LOG FILE                                   L'
  9.    @  9,1 SAY 'MANUAL TRANSFER OF DATA TO  CONTEST LOGS          U'
  10.    @ 10,1 SAY 'APPEND FROM BASIC "LOG" FILE TO "DBF" FILE        V'
  11.    @ 11,1 SAY 'DISPLAY FILES ON DISK DRIVE                       F'
  12.    @ 12,1 SAY 'DXPEDITION/CONTEST BATCH QSL FUNCTION             Q'
  13.    @ 13,1 SAY '(RE) INDEX A LOGBOOK DATABASE FILE                I'
  14.    @ 14,1 SAY 'CHANGE OFFSET TO UTC                              T'
  15.    @ 15,1 SAY 'CHANGE STATION OPERATOR CALL SIGN                 C'
  16.    @ 18,1 SAY 'Quit this menu                                    *'
  17.    @ 20,1 SAY 'QRU'
  18.    @ 20,5 GET task
  19.    READ
  20.  
  21.    DO CASE
  22.  
  23.          CASE task = 'U'
  24.               IF logbook = '      '
  25.                  @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  26.                  STORE 'L' TO task
  27.                  WAIT
  28.               ELSE
  29.                  IF FILE(logbook)
  30.                     DO LOGUPDAT
  31.                  ELSE
  32.                     ? 'ERROR- LOGBOOK IS NOT ON DEFAULT DRIVE'
  33.                     WAIT
  34.                  ENDIF
  35.               ENDIF
  36.  
  37.          CASE task = 'I'
  38.               IF logbook = '      '
  39.                  @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  40.                  STORE 'L' TO task
  41.                  WAIT
  42.               ELSE
  43.                  IF FILE(logbook)
  44.                     USE &logbook
  45.                     SET TALK ON
  46.                     INDEX ON call+band TO &logbook
  47.                     SET TALK OFF
  48.                     USE
  49.                  ELSE
  50.                     ? 'ERROR- LOGBOOK IS NOT ON DEFAULT DRIVE'
  51.                     WAIT
  52.                  ENDIF
  53.               ENDIF
  54.          
  55.          CASE task = 'Q'
  56.               IF logbook = '      '
  57.                  @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  58.                  STORE 'L' TO task
  59.                  WAIT
  60.               ELSE
  61.                  IF FILE(logbook)
  62.                     DO DXPDNQSL
  63.                  ELSE
  64.                     ? 'ERROR- LOGBOOK IS NOT ON DEFAULT DRIVE'
  65.                     WAIT
  66.                  ENDIF
  67.               ENDIF
  68.  
  69.          CASE task = 'V'
  70.               IF logbook = '      '
  71.                  @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  72.                  STORE 'L' TO task
  73.                  WAIT
  74.               ELSE
  75.                  DO LOG2DBF
  76.               ENDIF
  77.  
  78.         CASE task = 'F'
  79.              ERASE
  80.              ACCEPT 'WHICH DRIVE ' TO diskdrive
  81.              STORE diskdrive + ':' TO diskdrive
  82.              DISPLAY FILES ON &diskdrive
  83.              RELEASE diskdrive
  84.              WAIT
  85.  
  86.          CASE task = 'C'
  87.               ERASE
  88.               @ 10,1 SAY "CALL SIGN IS "
  89.               @ 10,25 GET callsign
  90.               READ
  91.  
  92.          CASE task = 'L'
  93.               @ 22,1 SAY 'Which Log file '
  94.               @ 22,15 GET logbook
  95.               @ 22,30 SAY 'Which Index file'
  96.               @ 22,48 GET logndx
  97.               READ
  98.               IF FILE (logbook)
  99.                  @ 22,1 SAY '                          '
  100.               ELSE
  101.                  @ 22,1 SAY ' '
  102.                  ? 'ERROR, ',logbook, 'IS NOT PRESENT ON DRIVE'
  103.                  WAIT
  104.               ENDIF
  105.  
  106.          CASE task = 'T'
  107.               ACCEPT 'What is your offset to UTC (HH) ? ' TO cgmt
  108.               STORE VAL(cgmt) TO gmt
  109.               RELEASE cgmt
  110.  
  111.      ENDCASE
  112. ENDDO
  113. STORE ' '  TO task
  114. RETURN
  115.